home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1996 February
/
EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso
/
earcd
/
midi
/
stone125.lha
/
StoneTracker
/
Install-StoneTracker
< prev
next >
Wrap
Text File
|
1995-10-05
|
4KB
|
169 lines
; $VER: StoneTracker Install 1.25 (01.10.1995) by Lavaire Michael
;
; Installation script for StoneTracker demonstration version (net version)
; (c) Copyright 1995 Emmanuel Marty & Michael Lavaire
;
(if (= @language "français") (
(set #BadKick
"Système V2.xx minimum."
)
(set #StoneDir-Msg (cat
"Sélectionnez le répertoire de destination de StoneTracker. "
"Aucun autre répertoire ne sera ajouté."
))
(set #StoneLocale-Msg (cat
"Sélectionnez le répertoire de destination de la localisation "
"en français de StoneTracker"
))
(set #StonePref-Msg (cat
"Sélectionnez le répertoire de destination du fichier de "
"configuration de StoneTracker."
))
(set #StoneLib-Msg (cat
"Sélectionnez le répertoire de destination de la library "
"StonePlayer."
))
(set #StoneDocs-Msg (cat
"Sélectionnez le répertoire de destination de la documentation "
"de StoneTracker."
))
(set #StoneExam-Msg (cat
"Sélectionnez le répertoire de destination des modules d'exemple "
"de StoneTracker. Aucun autre répertoire ne sera ajouté."
))
(set #CopyingStone
"Copie de StoneTracker en cours ..."
)
(set #CopyingLocale
"Copie de la localisation en cours ..."
)
(set #CopyingLib
"Copie de la library StonePlayer en cours ..."
)
(set #CopyingDoc
"Copie de la documentation de StoneTracker en cours ..."
)
(set #CopyingPref
"Copie de la configuration de StoneTracker en cours ..."
))
(
(set #BadKick
"Kickstart 2.04 required."
)
(set #StoneDir-Msg (cat
"Select StoneTracker destination directory. "
"No directory will be created."
))
(set #StonePref-Msg (cat
"Select StoneTracker configuration file "
"destination directory."
))
(set #StoneLocale-Msg (cat
"Select StoneTracker french locale file "
"destination directory."
))
(set #StoneLib-Msg
"Select StonePlayer library destination directory."
)
(set #StoneDocs-Msg
"Select StoneTracker documentation destination directory."
)
(set #StoneExam-Msg (cat
"Select StoneTracker example modules destination directory. "
"No directory will be created."
))
(set #CopyingStone
"Copying StoneTracker ..."
)
(set #CopyingLocale
"Copying locale files ..."
)
(set #CopyingLib
"Copying StonePlayer library ..."
)
(set #CopyingDoc
"Copying StoneTracker documentation ..."
)
(set #CopyingPref
"Copying StoneTracker configuration ..."
)
(set #WorkingInstall
"Installation in progress ..."
)
))
(if (< (/ (getversion) 65536) 37) (abort #BadKick))
(set DestStone (askdir
(prompt #StoneDir-Msg)
(help @askdir-help)
(default "WORK:")
))
(set @default-dest DestStone)
(set DestPref (askdir
(prompt #StonePref-Msg)
(help @askdir-help)
(default "ENVARC:")
))
(set DestLocale (askdir
(prompt #StoneLocale-Msg)
(help @askdir-help)
(default "LOCALE:Catalogs/français")
))
(set DestLib (askdir
(prompt #StoneLib-Msg)
(help @askdir-help)
(default "LIBS:")
))
(set DestDocs (askdir
(prompt #StoneDocs-Msg)
(help @askdir-help)
(default DestStone)
))
(set DestExam (askdir
(prompt #StoneExam-Msg)
(help @askdir-help)
(default DestStone)
))
(working #CopyingStone)
(copyfiles (source "StoneTracker") (dest DestStone) (infos))
(working #CopyingPref)
(copyfiles (source "Prefs/Env-Archive/StoneTracker.Prefs") (dest "T:"))
(textfile (dest "ENV:StoneTracker.Prefs")
(include "T:StoneTracker.Prefs")
(append "AppIcon \"")
(append (tackon DestStone "StoneTracker.Info"))
(append "\"\nModulePath \"")
(append DestExam)
(append "\"\n")
(append "Multiview \"RUN <>NIL: SYS:Utilities/MultiView <>CON:////MultiView/AUTO/WAIT/CLOSE ")
(append (tackon DestDocs "%s"))
(append "\"\n")
)
(copyfiles (source "ENV:StoneTracker.Prefs") (dest DestPref))
(delete ("T:StoneTracker.Prefs"))
(working #CopyingLocale)
(copyfiles (source "Locale/catalogs/Français/StoneTrackerDemo.Catalog") (dest DestLocale))
(working #CopyingLib)
(copyfiles (source "Libs/StonePlayer.Library") (dest DestLib))
(copyfiles (source "Libs/StonePacker.Library") (dest DestLib))
(copylib (source "Libs/ReqTools.Library") (dest DestLib))
(copyfiles (source "Docs/StoneTrackerDemo.Guide") (dest DestDocs))
(copyfiles (source "Docs/StoneTrackerDemo_E.Guide") (dest DestDocs))
(working #CopyingExam)
(copyfiles (source "Modules") (dest DestExam) (files) (all))
(complete 100)